home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs11.d81
/
darkterm
/
DT4.EQUATES
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
4KB
|
204 lines
1000 REM * DARKTERM V4.0
1010 REM * (C) 1986 D.S.S.
1020 REM * TERMINAL EQUATES
1030 REM *
1040 OPEN2,9,1,"@0:T4.CODE"
1050 SYS700
1060 .OPT O2
1070 ;
1080 CHKIN =$FFC6 ; KERNAL EQUATES
1090 CHKOUT =$FFC9
1100 CHRIN =$FFCF
1110 CHROUT =$FFD2
1120 CLRCHN =$FFCC
1130 CLOSE =$FFC3
1140 OPEN =$FFC0
1150 SETLFS =$FFBA
1160 SETNAM =$FFBD
1170 GETIN =$FFE4
1180 READST =$FFB7
1190 PLOT =$FFF0
1200 ;
1210 BUFLO =$4C00 ; BUFFER START
1220 AUTODIAL =$4600 ; A/D JUMP ADDR
1230 AANSWER =$4603 ; A/A JUMP ADDR
1240 ONLINE =$4606 ; OFF-HOOK ADDR
1250 OFFLINE =$4609 ; ON-HOOK ADDR
1260 ;
1270 ; * ZERO PAGE VARIABLES
1280 ;
1290 DDEV =2 ; DISK DEVICE #
1300 SCROFF =3 ; SCREEN SUPPRESS FL
1310 MODOFF =4 ; MODEM SUPPRESS FL
1320 MODE =5 ; SCREEN EDITOR MODE
1330 QMODE =6 ; QUOTE MODE ENABLE
1340 DUPLEX =7 ; DUPLEX FL
1350 KFLAG =8 ; FUNCTION KEY FL
1360 BFLAG =9 ; BUFFER XMIT FL
1370 BUFOP =10 ; BUFFER OPEN FL
1380 BUFFER =11 ; BUFFER START ADDR
1390 BPT =13 ; BUFFER POINTER
1400 INLEN =15 ; INPUT BUFFER LENGTH
1410 KPT =16 ; FUNCTION KEY POINTER
1420 TEXT =18 ; MULTI-USE POINTER
1430 PPT =20 ; PHONE DIR POINTER
1440 TPT =22 ; TEMPORARY PTR
1450 PSA =24 ; SCREEN PTR
1460 AA =26 ; INTEGER WORK REGS
1470 MP =28 ; FILE TRANSFER PTR
1480 ENTRY =30 ; SCREEN SELECT CTR
1490 IKP =31 ; IN-KEY POINTER
1500 IBP =32 ; IN-BUFFER POINTER
1510 DECML =34 ; DECIMAL RESULT STRNG
1520 LO =39 ; MULTIPLY ROUTINE
1530 HI =40 ; STORAGE
1540 SCRPTR =41 ; SCREEN POINTER
1550 COLPTR =43 ; COLOR RAM PTR
1560 ROW =45 ; CURSOR ROW
1570 COL =46 ; CURSOR COLUMN
1580 CHRSAV =47 ; CHAR UNDER CURSOR
1590 COLSAV =48 ; COLOR UNDER CURSOR
1600 RVSFLG =49 ; INVERSE VIDEO FL
1610 SCRCODE =50 ; SCREEN CODE SAVE
1620 COLCODE =51 ; COLOR CODE SAVE
1630 SCLO =52 ; SCREEN SCROLL PTRS
1640 SCHI =53
1650 FUNCON =54 ; COLOR FUNCTION FL
1660 STK =55 ; TEMPORARY
1670 TCP =56
1680 SELNUM =58 ; PHONE #S SELECTED
1690 ;
1700 ; * SYSTEM INPUT BUFFER (80 BYTES)
1710 ;
1720 INBUFF =60
1730 ;
1740 ; * SETUP FILE EQUATES
1750 ;
1760 MODSTR =820 ; MODEM FILE STRING
1770 FUNSTR =836 ; FUNCTION KEY FILE ST
1780 CHRSTR =852 ; CHARACTER SET STRING
1790 PROTO =868 ; PROTOCOL USED
1800 PAGES =869 ; DIRECTORY PAGES
1810 PDEV =870 ; PRINTER DEVICE
1820 PSEC =871 ; PRINTER SEC ADDRESS
1830 CLKOFF =872 ; KEYCLICK ENABLE
1840 CWAVE =873 ; WAVEFORM
1850 CFREQ =874 ; FREQUENCY
1860 BELOFF =875 ; BELL TONE STUFF
1870 BWAVE =876
1880 BFREQ =877
1890 DDELAY =878 ; PULSE DIAL DELAY
1900 CDELAY =880 ; CARRIER WAIT DELAY
1910 HDELAY =881 ; HANGUP DELAY
1920 SCC1 =882 ; SCREEN COLOR SAVE
1930 SCC2 =883
1940 SCC3 =884
1950 COMLOK =885 ; COMMAND LOCK FL
1960 COLLOK =886 ; COLOR MODE FL
1970 CAPLOK =887 ; UPPER CASE LOCK
1980 WRDLOK =888 ; WORD WRAP ENABLE
1990 LINEF =889 ; LINE FEED STATUS
2000 NULLS =890 ; NULLS
2010 XDELO =891 ; TRANSMIT DELAY
2020 XDEHI =892
2030 BAUD =893 ; BAUD RATE
2040 SBITS =895 ; STOP BITS
2050 WRDLEN =896 ; WORD LENGTH
2060 PARITY =897 ; PARITY
2070 BSPEED =898 ; BUFFER SPEED
2080 CARCHK =899 ; CARRIER CHECK
2090 ;
2100 ; * SCREEN SWAP EDITOR SAVE REGS
2110 ;
2120 XRVSFLG =980
2130 XFUNCON =981
2140 XCHRSAV =982
2150 XCOLSAV =983
2160 XROW =984
2170 XCOL =985
2180 ;
2190 ; * START OF GENERAL VARIABLES
2200 ;
2210 *=$600
2220 DSKBUF *=*+80
2230 NUMTAB *=*+32
2240 PA .BYT 0
2250 PX .BYT 0
2260 PY .BYT 0
2270 MDA .BYT 0
2280 MDAA .BYT 0
2290 MDC .BYT 0
2300 MDX .BYT 0
2310 MDY .BYT 0
2320 IDX .BYT 0
2330 KEYNUM .BYT 0
2340 DCBR .BYT 0
2350 LOWK .BYT 0
2360 HIWK .BYT 0
2370 LOWK2 .BYT 0
2380 HIWK2 .BYT 0
2390 LORK2 .BYT 0
2400 HIRK2 .BYT 0
2410 DECLM .BYT 0,0,0,0,0
2420 WAITLEN .BYT 0
2430 RC .BYT 0,0
2440 P .BYT 0,0,0
2450 S .BYT 0,0,0
2460 X .BYT 0,0,0
2470 Y .BYT 0,0,0
2480 Q .BYT 0,0,0
2490 R .BYT 0,0,0
2500 KA .BYT 0
2510 KX .BYT 0
2520 KY .BYT 0
2530 MAXLEN .BYT 0
2540 PCLR .BYT 0
2550 PROW .BYT 0
2560 PCOL .BYT 0
2570 WRAP .BYT 0
2580 WLEN .BYT 0
2590 WTEXT *=*+40
2600 WCOLR *=*+40
2610 SDSTR *=*+25
2620 LDSTR *=*+32
2630 SIZE .BYT 0,0
2640 DMODE .BYT 0
2650 FILES .BYT 0
2660 PUA .BYT 0
2670 PUX .BYT 0
2680 PUY .BYT 0
2690 PAGEN .BYT 0
2700 CURNUM .BYT 0
2710 PTMP .BYT 0
2720 TRYS .BYT 0,0
2730 NCT .BYT 0
2740 PSTR *=*+27
2750 MULMOD .BYT 0
2760 T659 .BYT 0
2770 BB .BYT 0,0
2780 BC .BYT 0,0
2790 FC .BYT 0
2800 II .BYT 0
2810 PSCR .BYT 0
2820 NOTALL .BYT 0
2830 LSTBLK .BYT 0
2840 DSKLEN .BYT 0
2850 OUTDEV .BYT 0
2860 SVC1 .BYT 0
2870 SVC2 .BYT 0
2880 SVC3 .BYT 0
2890 EXLINE .BYT 0,0
2900 SLINE .BYT 0,0
2910 ELINE .BYT 0,0
2920 AFLAG .BYT 0
2930 SCA .BYT 0
2940 SCX .BYT 0
2950 SCY .BYT 0
2960 SAVX .BYT 0
2970 SAVY .BYT 0
2980 SAVZ .BYT 0
2990 RETFLG .BYT 0
3000 *=$800
3010 QUOSCR =* ; QUOTE MODE SCREEN CODES
3020 .FIL 8,"0:TERM4.SRC1"